Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_75 / mastmind.bas (.txt) < prev

Wrap

Atari STOS Basic | 1987-04-21 | 78KB | 202 lines

10 REM MASTERMIND v1.2 100 GOSUB 1000 IF 1010 RETURN 1020 REM *** INFO *** 1030 HIDE 1040 IF 1050 SHOW 1060 RETURN 1070 REM *** COLOURS *** 1080 SPRITE 1090 SCREEN COPY 110 GOSUB 1100 SCREEN COPY 1110 SCREEN COPY 1120 GOSUB 1130 GOSUB 1140 REPEAT 1150 VARNAME 1160 IF 1170 UNTIL 1180 SCREEN COPY 1190 REM ** COLOUR VALUE 120 REPEAT 1200 VARNAME 1210 SPRITE 1220 LOCATE 1230 INK 1240 VARNAME 1250 IF 1260 RETURN 1270 VARNAME 1280 GOSUB 1290 RETURN 130 REPEAT 1300 VARNAME 1310 GOSUB 1320 RETURN 1330 REM *** RESTORE COLOURS 1340 GET PALETTE 1350 RESTORE 1360 FOR 1370 READ 1380 NEXT 1390 RETURN 140 VARNAME 1400 REM *** SET UP *** 1410 FOR 1420 SPRITE 1430 SPRITE 1440 SPRITE 1450 NEXT 1460 CHANGE MOUSE 1470 SPRITE 1480 FOR 1490 VARNAME 150 UNTIL 1500 NEXT 1510 CHANGE MOUSE 1520 RETURN 1530 REM *** INITIALIZATION *** 1540 FADE 1550 KEY 1560 FOR 1570 READ 1580 NEXT 1590 GOSUB 160 ON 1600 RESERVE 1610 SCREEN COPY 1620 SCREEN COPY 1630 GOSUB 1640 FADE 1650 SHOOT 1660 RETURN 1670 REM *** ZONES ON *** 1680 SET ZONE 1690 SET ZONE 170 UNTIL 1700 SET ZONE 1710 SET ZONE 1720 SET ZONE 1730 SET ZONE 1740 SET ZONE 1750 SET ZONE 1760 SET ZONE 1770 SET ZONE 1780 SET ZONE 1790 SET ZONE 180 REM *** test 1800 SET ZONE 1810 SET ZONE 1820 SET ZONE 1830 SET ZONE 1840 SET ZONE 1850 SET ZONE 1860 SET ZONE 1870 SET ZONE 1880 RETURN 1890 REM *** ZONES OFF *** 190 VARNAME 1900 FOR 1910 RESET ZONE 1920 NEXT 1930 RETURN 1940 REM *** MUSIC DATA *** 1950 DATA 1960 DATA 1970 DATA 1980 REM *** COLOUR DATA *** 1990 DATA 20 REM by: Rob MacLennan 200 FOR 2000 DATA 2010 DATA 210 IF 220 NEXT 230 FOR 240 FOR 250 IF 260 NEXT 270 NEXT 280 VARNAME 290 IF 30 REM using: STOS 300 SPRITE 310 IF 320 IF 330 SPRITE 340 IF 350 NEXT 360 REM *** GET PEG *** 370 VARNAME 380 CHANGE MOUSE 390 PLAY 40 REM completed: 90-08-02 400 IF 410 RETURN 420 REM *** PUT PEG *** 430 IF 440 SPRITE 450 SPRITE 460 REDRAW 470 VARNAME 480 CHANGE MOUSE 490 VARNAME 50 DIM 500 SHOOT 510 RETURN 520 REM *** RESET PEGS *** 530 FOR 540 VARNAME 550 VARNAME 560 NEXT 570 RETURN 580 REM *** HOLES ON *** 590 WAIT VBL 60 GOSUB 600 FOR 610 SET ZONE 620 NEXT 630 RETURN 640 REM *** HOLES OFF *** 650 FOR 660 RESET ZONE 670 NEXT 680 RETURN 690 REM *** PLAY AGAIN? *** 70 GOSUB 700 VARNAME 710 IF 720 IF 730 IF 740 GOTO 750 REM *** WIN/LOSE *** 760 ANIM 770 ANIM 780 FOR 790 SPRITE 80 REM *** mainline 800 NEXT 810 FOR 820 RETURN 830 REM *** START *** 840 VARNAME 850 RETURN 860 REM *** QUIT *** 870 SCREEN COPY 880 SCREEN COPY 890 SCREEN COPY 90 FOR 900 GOSUB 910 SET ZONE 920 REPEAT 930 VARNAME 940 UNTIL 950 IF 960 SCREEN COPY 970 SCREEN COPY 980 REDRAW 990 GOSUB